home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / super directory (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  69 lines
  1. 0 GOTO1000
  2. 1 GETZ$:IFZ$=""THEN1
  3. 2 RETURN
  4. 10 INPUT#15,ER,ER$:IFER=0THENRETURN
  5. 20 PRINT"DISK ERROR #"ER:PRINTER$:END:RETURN
  6. 100 PRINT"":FORI=0TO15:FORJ=0TONC:PRINTTAB(J*20+1);V$(I+J*16);
  7. 110 NEXTJ:PRINT:NEXTI
  8. 120 POKEXB,0:RL=0:CL=0:GOSUB600
  9. 130 FORI=0TO1STEP0:GOSUB1:Z=ASC(Z$):TC=CL:TR=RL:FORJ=0TO1STEP0
  10. 140 IF(ZAND127)=29THENCL=(CL+1+2*(Z=157))ANDNC
  11. 150 IF(ZAND127)=17THENRL=(RL+1+2*(Z=145))AND15
  12. 160 IFZ=13THENI=1
  13. 170 IFV$(RL+CL*16)<>B$THENJ=1
  14. 180 NEXT:IF(TC<>CL)OR(TR<>RL)THENGOSUB500
  15. 190 NEXT:RETURN
  16. 500 POKEXA,TR+3:PRINTTAB(TC*20+1);""+V$(TR+16*TC)
  17. 600 POKEXA,RL+3::PRINTTAB(CL*20+1);"[156]";V$(RL+16*CL):RETURN
  18. 900 FORI=1TONV:V$(I)=B$:NEXT:RETURN
  19. 1000 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB6000
  20. 1010 NC=1:IFPEEK(213)=79THENNC=3
  21. 1020 NV=(NC+1)*16-1:GOSUB2000:B$="                  ":DIMV$(NV)
  22. 1100 NP=0:SL=1:V$(0)="NEXT PAGE":PRINT"[147]"HE$
  23. 1110 SL=SL+NP:NP=MA-SL+1:IFNP>NVTHENNP=NV
  24. 1120 IFNP=0THEN3000
  25. 1130 GOSUB900:FORI=1TONP:V$(I)=PR$(SL+I-1):NEXT
  26. 1140 GOSUB100:IFCL+RL=0THEN1110
  27. 1150 POKE139,128:GOTO5000
  28. 2000 GOSUB2900:MA=0
  29. 2010 OPEN15,UN,15,"I"+DR$:GOSUB10
  30. 2020 OPEN1,UN,3,"$"+DR$
  31. 2030 SYS896
  32. 2040 FO=ASC(IN$):IF(FOAND3)=1THEN2100
  33. 2050 CLOSE1:CLOSE15:PRINT"BAD DISK FORMAT":END
  34. 2100 HE$="[153]    "+MID$(IN$,143,16)
  35. 2110 IFFO>1THENSE=18:HE$=HE$+", 1541/4040 FORMAT  ":GOTO2200
  36. 2120 IFFO=1THENSE=19:HE$=HE$+", 2040 FORMAT"
  37. 2200 DIMPR$(SE*8):FORI=1TOSE:SYS896
  38. 2210 FORJ=1TO254STEP32:A=ASC(MID$(IN$,J))AND127
  39. 2220 IFA=2THENMA=MA+1:PR$(MA)=MID$(IN$,J+3,16)
  40. 2230 NEXTJ
  41. 2240 IFSTTHENI=SE
  42. 2250 NEXTI
  43. 2260 CLOSE1:CLOSE15:RETURN
  44. 2900 UN=8:DR=0:DR$="0"
  45. 2910 RETURN
  46. 2920 PRINT"UNIT #  ";UN;:INPUT"[157][157][157][157]";UN
  47. 2930 PRINT"DRIVE #  ";DR;:INPUT"[157][157][157][157]";DR:IFDR*(DR-1)THEN2930
  48. 2940 DR$=STR$(DR):RETURN
  49. 3000 GOSUB900:PRINT"[147]NO MORE PROGRAMS ON DISK.  OPTIONS ARE:
  50. 3020 V$(0)[178]"SEE NEW DISK":V$(2)[178]"RESTART THIS DISK":V$(4)[178]"QUIT"
  51. 3030 [141]100:[139]RL[178]0[167][138]
  52. 3040 [139]RL[178]2[167]1100
  53. 3050 [153]"LOAD":[128]
  54. 5000 [151]53280,14:[151]53281,6
  55. 5001 [153]"LOADCONTLOAD";[199](34);V$(RL[170]16[172]CL);[199](34);",";UN:[153]"RUN";
  56. 5010 [139]XA[178]214[167][151]631,13:[151]632,13:[151]XB,2:[128]
  57. 5020 [151]623,13:[151]624,13:[151]158,2:[128]
  58. 6000 IN$[178]"ZZ":[129]I[178]1[164]6:IN$[178]IN$[170]IN$:[130]
  59. 6010 IN$[178][202](IN$,2):IN$[178]IN$[170]IN$
  60. 6020 [139][194](65535)[178]255[167]XA[178]214:XB[178]198:[137]6040
  61. 6030 XA[178]216:XB[178]158
  62. 6040 [129]I[178]896[164]929:[135]X$:[139][200](X$,1)[179][177]"A"[167]6060
  63. 6050 X$[178][196]([197]([201](X$,[195](X$)[171]1))[170]3[172](XA[178]216))
  64. 6060 [151]I,[197](X$):[130]
  65. 6070 [142]
  66. 6080 [131]160,2,177,A45,153,A137,0,200,192,6,208,246,162
  67. 6090 [131]1,32,198,255,32,228,255,164,A142,145,A140,200
  68. 6100 [131]132,A142,196,A139,208,242,76,204,255
  69.